home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / Bonus / VCLZip / kpdemosc.exe / Config.cpp < prev    next >
Encoding:
C/C++ Source or Header  |  1998-11-10  |  2.2 KB  |  63 lines
  1. //---------------------------------------------------------------------------
  2. #include <vcl.h>
  3. #pragma hdrstop
  4.  
  5. #include "Config.h"
  6. //---------------------------------------------------------------------------
  7. #pragma package(smart_init)
  8. #pragma resource "*.dfm"
  9. TConfigDlg *ConfigDlg;
  10. //---------------------------------------------------------------------------
  11. __fastcall TConfigDlg::TConfigDlg(TComponent* Owner)
  12.     : TForm(Owner)
  13. {
  14. }
  15. //---------------------------------------------------------------------------
  16. void __fastcall TConfigDlg::DirBtnClick(TObject *Sender)
  17. {
  18.   if (((TBitBtn*)Sender)->Name == "DirBtn")
  19.      GetViewerDlg->InitialDir = ExtractFilePath(DefaultViewer->Text);
  20.   else if (((TBitBtn*)Sender)->Name == "sfx16dirbtn")
  21.      GetViewerDlg->InitialDir = ExtractFilePath(sfx16->Text);
  22.   else if (((TBitBtn*)Sender)->Name == "sfx32dirbtn")
  23.      GetViewerDlg->InitialDir = ExtractFilePath(sfx32->Text);
  24.  
  25.   if (GetViewerDlg->Execute())
  26.   {
  27.      if (((TBitBtn*)Sender)->Name == "DirBtn")
  28.         DefaultViewer->Text = GetViewerDlg->FileName;
  29.      else if (((TBitBtn*)Sender)->Name == "sfx16dirbtn")
  30.         sfx16->Text = GetViewerDlg->FileName;
  31.      else if (((TBitBtn*)Sender)->Name == "sfx32dirbtn")
  32.         sfx32->Text = GetViewerDlg->FileName;
  33.   }
  34.  
  35. }
  36. //---------------------------------------------------------------------------
  37. void __fastcall TConfigDlg::Button1Click(TObject *Sender)
  38. {
  39.   OnStartUnZipInfoChk->Checked = True;
  40.   OnStartUnZipChk->Checked = True;
  41.   OnBadCRCChk->Checked = True;
  42.   OnBadPasswordChk->Checked = True;
  43.   OnSkippingFileChk->Checked = True;
  44.   OnStartZipInfoChk->Checked = True;
  45.   OnStartZipChk->Checked = True;
  46.   OnEndZipChk->Checked = True;
  47. }
  48. //---------------------------------------------------------------------------
  49. void __fastcall TConfigDlg::Button2Click(TObject *Sender)
  50. {
  51.   OnStartUnZipInfoChk->Checked = False;
  52.   OnStartUnZipChk->Checked = False;
  53.   OnBadCRCChk->Checked = False;
  54.   OnBadPasswordChk->Checked = False;
  55.   OnSkippingFileChk->Checked = False;
  56.   OnStartZipInfoChk->Checked = False;
  57.   OnStartZipChk->Checked = False;
  58.   OnEndZipChk->Checked = False;
  59.  
  60. }
  61. //---------------------------------------------------------------------------
  62.  
  63.